/* Menus & More Installation Script for use with ARexx */
/* */
/* $VER: Install.rexx 3.21 (13.03.96) by Axel Sodtalbers */
/* */
/* PURPOSE: M&M installation routine; */
/* to be called from 'Install.M&M' project */
/* */
/* 3.00 (11.02.95) first release */
/* 3.10 (19.02.95) now correct directory name */
/* 3.20 (11.06.95) correct assign statement in user-startup */
/* Don't forget hint at the end */
/* */
/* 3.21 (13.03.96) | instead of || */
/* no more writing to S:user-startup */
/* */
/* oh dear, what a strange language... */
/* */
/* Das deutsche ARexx Handbuch ist wirklich */
/* DAS MIT ABSTAND MIESESTE EDV HANDBUCH */
/* das ich JEMALS gelesen habe - wirklich unglaublich... */
/*** Init ***/
OPTIONS RESULTS
OPTIONS FAILAT 21
IF SHOW('P', 'MMPlayer') THEN
ADDRESS "MMPlayer"
'AlohaPlayer'
'Query ISGERMAN'
ger = RESULT
oldstatus = ''
lhaprg = "C:lha"
/*** fetch target directory ***/
if ger then do
"Req 'Gleich erscheint ein Verzeichnis-Requester.||Bitte geben Sie dort an, in welchem||Verzeichnis das Unterverzeichnis M&M||für Menus&More angelegt werden soll!||(Die M&M-Dateien belegen ca. 1 MB)' 'Okay, klar zum Abheben!|Abbruch'"
if RESULT~=0 then do
RESULT=0 /* ?!? */
"ReqDir 'M&M installieren nach:' 'RAM:'"
if RESULT>0 then
target=RESULT
else
exit
end
else
exit
end
else do
"Req 'After this, a directory-requester will appear.||Please select, in which drawer||the sub-directory M&M shall be created!||(M&M needs about 930 KB of free disk space)' 'Okay, ready for take off!|Cancel'"